home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8411.d64 / exsort demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  118 lines
  1. 0 IFK=0THENK=1:LOAD"EXSORT?",8,1:REM LADEN VON EXSORT
  2. 1 SYS49400:REM STARTEN VON EXSORT
  3. 100 REM ***********************
  4. 110 REM ***   EXSORT DEMO   ***
  5. 120 REM ***********************
  6. 130 REM
  7. 140 REM ******************
  8. 150 REM * 1.BEFEHL: "SO" *
  9. 160 REM ******************
  10. 165 PRINT"[147][197]RSTER [194]EFEHL: 'SO'"
  11. 170 INPUT"[218]AHL DER ZU SORTIERENDEN [197]LEMENTE";A
  12. 175 PRINT"[193]NFUELLEN DES [198]ELDES 'ZA' MIT [218]UFALLS-    ZAHLEN"
  13. 180 DIMZA(A)
  14. 190 REM *** DAS FELD ZA WIRD MIT ZUFALLSZAHLEN BELEGT ***
  15. 200 FORS=1TOA
  16. 210 :ZA(S)=RND(1)*10000-5000
  17. 220 NEXTS
  18. 230 IT=TI:REM ZEIT SPEICHERN
  19. 240 PRINT"[211]ORTIERBEGINN"
  20. 250 REM
  21. 260 REM *** AUFRUF DES BEFEHLS "SO" ***
  22. 270 SO,ZA,1,A,1
  23. 280 REM   SO   =   BEFEHL
  24. 290 REM   ZA   =   FELDNAME
  25. 300 REM   1    =   ANFANGSINDEX
  26. 310 REM   A    =   ENDINDEX
  27. 320 REM   1    =   SORTIERUNGSRICHTUNG(AUFSTEIGEND)
  28. 330 REM
  29. 340 IT=TI-IT
  30. 350 PRINT"[211]ORTIERENDE"
  31. 355 FORS=1TO1000:NEXTS
  32. 360 REM *** AUSGABE DER SORTIERTEN ELEMENTE ***
  33. 370 FORS=1TOA
  34. 380 :PRINTS,TAB(6)ZA(S)
  35. 390 NEXTS
  36. 400 PRINT"[218]EIT:"IT/60"SEC"
  37. 410 PRINT"BITTE [212]ASTE DRUECKEN"
  38. 420 GETT$:IFT$=""THEN420
  39. 430 REM
  40. 440 REM ******************
  41. 450 REM * 2.BEFEHL: "SE" *
  42. 460 REM ******************
  43. 470 REM
  44. 480 CLR:DIMFE$(10000)
  45. 485 PRINT"[147][218]WEITER [194]EFEHL 'SE'"
  46. 490 REM ** IN 50 BELIEBIGE ELEMENTE  **
  47. 500 REM ** DES FELDES FE$ WIRD DAS   **
  48. 510 REM ** WORT "HALLO" GESCHRIEBEN  **
  49. 520 REM
  50. 525 PRINT"[201]N 50 BELIEBIGE [197]LEMENTE VON FE$ WIRD   'HALLO' GESCHRIEBEN"
  51. 530 FORS=1TO50
  52. 540 :FE$(RND(1)*10000)="HALLO"
  53. 550 NEXTS
  54. 560 PRINT"[201]N FOLGENDEM ELEMENTEN STEHT 'HALLO':"
  55. 570 REM
  56. 580 REM ** AUSDRUCKEN JEDES INDEXES **
  57. 590 REM ** IN DEM "HALLO" STEHT     **
  58. 600 REM
  59. 610 IN=-1:IT=TI
  60. 620 REM ** AUFRUF DES BEFEHLS "SE" **
  61. 630 SE,FE$,IN+1,10000,"HALLO"
  62. 640 REM  SE      =   BEFEHL
  63. 650 REM  FE$     =   FELDNAME
  64. 660 REM  IN+1    =   ANFANGSINDEX
  65. 670 REM  10000   =   ENDINDEX
  66. 680 REM  "HALLO" =   ELEMENT
  67. 690 REM ** BEI RUECKKEHR AUS "SE"  **
  68. 700 REM ** ENTHAELT "IN" DEN INDEX **
  69. 710 REM ** ODER (WENN DAS ELEMENT  **
  70. 720 REM ** NICHT GEFUNDEN WURDE)   **
  71. 730 REM ** DEN WERT -1             **
  72. 740 IFIN=-1ORIN=10000THEN760
  73. 750 PRINTIN,:GOTO630
  74. 760 PRINT:PRINT"[218]EIT:"(TI-IT)/60"SEC"
  75. 770 PRINT"BITTE [212]ASTE DRUECKEN"
  76. 780 GETT$:IFT$=""THEN780
  77. 790 REM
  78. 800 REM ****************************
  79. 810 REM * 1.BEFEHL 'SO' MIT OPTION *
  80. 820 REM ****************************
  81. 830 REM
  82. 835 PRINT"[147][197]RSTER [194]EFEHL MIT OPTION"
  83. 840 DATANULL,ZWEI,VIER,SECHS,ACHT,ZEHN,EINS,DREI,FUENF,SIEBEN,NEUN
  84. 850 DATA0,2,4,6,8,10,1,3,5,7,9
  85. 860 CLR:DIMNR(10),NR$(10)
  86. 870 REM ** EINLESEN IN FELD NR$ **
  87. 880 FORS=0TO10
  88. 890 :READX$:NR$(S)=X$
  89. 900 NEXTS
  90. 910 REM ** EINLESEN IN FELD NR  **
  91. 920 FORS=0TO10
  92. 930 :READX:NR(S)=X
  93. 940 NEXTS
  94. 950 REM ** AUSGABE FELD VOR SORTIERUNG **
  95. 960 PRINT"[201]NDEX NR$ VORHER NR * NR$ NACHHER NR"
  96. 970 FORS=0TO10
  97. 980 :PRINTS;TAB(6)NR$(S)TAB(16)NR(S)
  98. 990 NEXTS
  99. 1000 REM ** AUFRUF DES BEFEHL "SO" MIT OPTION **
  100. 1010 SO,NR$,0,10,0,NR
  101. 1020 REM SO   =   BEFEHL
  102. 1030 REM NR$  =   FELDNAME 1
  103. 1040 REM 0    =   ANFANGSINDEX
  104. 1050 REM 10   =   ENDINDEX
  105. 1060 REM 0    =   SORTIERUNGSRICHUTNG(ABSTEIGEND)
  106. 1070 REM NR   =   FELDNAME 2
  107. 1080 REM
  108. 1090 PRINT"[211]ORTIEREN VON NR$ ABSTEIGEND"
  109. 1095 PRINT"NR WIRD ENTSPRECHEND MITSORTIERT"
  110. 1097 PRINT"BITTE [212]ASTE DRUECKEN"
  111. 1098 GETT$:IFT$=""THEN1098
  112. 1100 REM ** AUSGABE FELD NACH SORTIERUNG **
  113. 1110 PRINT"";
  114. 1120 FORS=0TO10
  115. 1130 :PRINTTAB(22)NR$(S)TAB(33)NR(S)
  116. 1140 NEXTS
  117. 1150 PRINT""
  118.